home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / buzzap.bas < prev    next >
BASIC Source File  |  1995-04-22  |  5KB  |  119 lines
  1. 10 POKE 201,0 
  2. 20 FOR C=0 TO 3:SOUND C,0,0,0:NEXT C 
  3. 30 GOSUB 610 
  4. 40 FOR C=0 TO 3:SOUND C,0,0,0:NEXT C 
  5. 50 GOSUB 850 
  6. 60 DIM P$(5),PL$(6),PS$(6):P=ADR(P$):PL=ADR(PL$):PS=ADR(PS$) 
  7. 70 FOR I=1 TO 5:READ N:P$(I)=CHR$(N):NEXT I 
  8. 80 FOR I=1 TO 6:READ N:PS$(I)=CHR$(N):NEXT I 
  9. 90 FOR I=1 TO 6:READ N:PL$(I)=CHR$(N):NEXT I 
  10. 100 GRAPHICS 3:POKE 559,46:COLOR 2:PLOT 0,0:DRAWTO 39,0:DRAWTO 39,19:DRAWTO 0,19:DRAWTO 0,0:POKE 752,1 
  11. 110 POKE 16,64:POKE 53774,64 
  12. 120 POKE 704,15:POKE 705,66:POKE 706,255:POKE 707,68:POKE 53278,244:POKE 623,1 
  13. 130 GOSUB 780 
  14. 140 X=55:Y=86:EX=53:EY=19:FX=181:FY=33:GX=197:GY=88:POKE 53278,244:SOUND 0,255,14,4:SOUND 1,233,14,2 
  15. 150 FOR Q=1 TO 3 
  16. 160 AA=STICK(0) 
  17. 170 XI=(AA=7)-(AA=11):YI=(AA=13)-(AA=14) 
  18. 180 XI=XI+(AA=6)+(AA=5)-(AA=10)-(AA=9):YI=YI+(AA=9)+(AA=5)-(AA=10)-(AA=6) 
  19. 190 X=X+XI:Y=Y+YI:POKE 53278,244 
  20. 200 A=USR(MOVE,0,PMB,PL,X,Y,6) 
  21. 210 NEXT Q 
  22. 220 POKE 53278,244 
  23. 230 IF PEEK(53252)=2 THEN 460 
  24. 240 EX=EX-(EX>X)+(EX<X) 
  25. 250 EY=EY-(EY>Y)+(EY<Y) 
  26. 260 A=USR(MOVE,1,PMB,P,EX,EY,5) 
  27. 270 POKE 53278,244 
  28. 280 FX=FX+(FX>X)-(FX<X) 
  29. 290 FY=FY+(FY>Y)-(FY<Y) 
  30. 300 A=USR(MOVE,2,PMB,PS,FX,FY,6) 
  31. 310 POKE 53278,244 
  32. 320 IF FX<55 THEN FX=55 
  33. 330 IF FX>193 THEN FX=193 
  34. 340 IF FY<25 THEN FY=25 
  35. 350 IF FY>82 THEN FY=82 
  36. 360 GX=GX-(GX>X)+(GX<X) 
  37. 370 GY=GY-(GY>Y)+(GY<Y) 
  38. 380 A=USR(MOVE,3,PMB,P,GX,GY,5) 
  39. 390 POKE 53278,244 
  40. 400 IF PEEK(53252)=2 THEN 460 
  41. 410 IF PEEK(53260)=4 THEN 490 
  42. 420 IF PEEK(53260)=2 THEN 460 
  43. 430 IF PEEK(53260)=8 THEN 460 
  44. 440 POKE 53278,244 
  45. 450 GOTO 150 
  46. 460 REM ***** 
  47. 470 POKE 53277,0:GOSUB 570 
  48. 480 POKE 201,B:CLR :GOTO 20 
  49. 490 REM ***** 
  50. 500 POKE 53278,244:GOSUB 520:GOTO 100 
  51. 510 END  
  52. 520 FOR I=250 TO 6 STEP -2 
  53. 530 SOUND 0,I,10,10 
  54. 540 FOR Z=1 TO 3:NEXT Z 
  55. 550 NEXT I 
  56. 560 RETURN  
  57. 570 FOR I=255 TO 200 STEP -1 
  58. 580 SOUND 0,I,10,10:SOUND 1,I-20,10,10 
  59. 590 NEXT I 
  60. 600 RETURN  
  61. 610 FOR I=1664 TO 1692:READ N:POKE I,N:NEXT I 
  62. 620 GRAPHICS 18:SOUND 0,128,10,10 
  63. 630 POKE 53277,0:POKE 16,64:POKE 53774,64 
  64. 640 ? #6:? #6:? #6;"     BUZZZ-ZAP!" 
  65. 650 A=USR(1664):SETCOLOR 0,0,13:SOUND 1,192,10,7 
  66. 660 ? #6:? #6;"   by: DAVID KARP" 
  67. 670 A=USR(1664):SOUND 3,240,10,7 
  68. 680 ? #6:? #6;"    PRESS  start" 
  69. 690 FOR C=1 TO 3:SOUND C,0,0,0:NEXT C 
  70. 700 SOUND 0,128,10,14:FOR I=1 TO 30:IF PEEK(53279)=6 THEN RETURN  
  71. 710 SOUND 1,192,10,12:NEXT I 
  72. 720 SOUND 0,224,10,12:FOR I=1 TO 140:IF PEEK(53279)=6 THEN RETURN  
  73. 730 SOUND 1,254,10,10:NEXT I 
  74. 740 FOR C=0 TO 3:SOUND C,0,0,0:NEXT C 
  75. 750 ? #6:? #6;"      BOARDS=";PEEK(201) 
  76. 760 IF PEEK(53279)<>6 THEN 760 
  77. 770 RETURN  
  78. 780 POKE 77,0:FOR I=1 TO 4 
  79. 790 READ X1,Y1,X2,Y2 
  80. 800 IF X1=99 THEN RESTORE 1000:GOTO 780 
  81. 810 PLOT X1,Y1:DRAWTO X2,Y2 
  82. 820 NEXT I:SETCOLOR 1,INT(RND(0)*16),10 
  83. 830 B=B+1:? :? "              BOARD #";B 
  84. 840 RETURN  
  85. 850 DIM PMMOV$(100):MOVE=ADR(PMMOV$):FOR I=1 TO 100:READ N:PMMOV$(I)=CHR$(N):NEXT I 
  86. 860 PMBASE=INT((PEEK(145)+3)/4)*4:POKE 54279,PMBASE 
  87. 870 PMB=PMBASE*256:POKE 559,46:POKE 53277,3 
  88. 880 DATA 104,162,0,232,142,10,212,142,23,208,142,22,208,224,255,240,3,76,131,6,200,192,255,240,3,76,131,6,96 
  89. 890 REM ***** 
  90. 900 DATA 216,104,104,104,133,213,104,24,105,2,133,206,104,133,205,104,133,204,104,133,203,104,104,133,208 
  91. 910 DATA 104,104,133,209,104,104,24,101,209,133,207,166,213,240,16,165,205,24,105,128,133,205,165,206,105 
  92. 920 DATA 0,133,206,202,208,240,160,0,162,0,196,209,144,19,196,207,176,15,132,212,138,168,177,203,164 
  93. 930 DATA 212,145,205,232,169,0,240,4,169,0,145,205,200,192,128,208,224,166,213,165,208,157,0,208,96 
  94. 940 REM *** 
  95. 950 DATA 24,126,255,126,60 
  96. 960 DATA 24,60,126,102,126,60 
  97. 970 DATA 84,121,254,254,121,84 
  98. 980 REM *** 
  99. 990 DATA 28,4,16,4,16,4,5,15,5,15,35,15,38,1,24,15 
  100. 1000 DATA 9,4,30,4,9,15,30,15,0,0,0,0,0,0,0,0 
  101. 1010 DATA 10,8,10,19,20,0,20,11,30,8,30,19,0,0,0,0 
  102. 1020 DATA 20,18,20,13,1,10,17,10,20,1,20,7,23,10,38,10 
  103. 1030 DATA 7,7,7,12,7,12,32,12,32,12,32,7,32,7,7,7 
  104. 1040 DATA 1,6,20,6,30,6,38,6,20,12,38,12,0,0,0,0 
  105. 1050 DATA 1,10,10,1,38,10,30,18,10,10,10,18,30,1,30,10 
  106. 1060 DATA 8,9,16,4,9,10,16,16,32,10,26,16,28,4,33,9 
  107. 1070 DATA 20,4,20,15,6,10,33,10,9,15,30,15,9,4,30,4 
  108. 1080 DATA 19,15,32,15,10,11,24,11,14,7,28,7,19,3,32,3 
  109. 1090 DATA 8,4,8,15,30,4,30,15,4,10,35,10,13,15,25,4 
  110. 1100 DATA 5,4,14,13,34,4,25,13,5,4,34,4,19,1,19,10 
  111. 1110 DATA 9,1,9,13,25,13,9,13,15,4,30,4,30,4,30,18 
  112. 1120 DATA 19,1,7,14,7,14,19,14,24,14,39,14,32,6,24,14 
  113. 1130 DATA 11,1,13,3,17,7,24,14,5,14,38,14,24,14,24,18 
  114. 1140 DATA 1,4,29,4,5,9,38,9,11,15,23,15,24,15,34,5 
  115. 1150 DATA 17,4,7,15,19,4,19,15,21,4,31,15,0,0,0,0 
  116. 1160 DATA 28,4,16,4,16,4,5,15,5,15,35,15,38,1,24,15 
  117. 1170 DATA 99,0,0,0 
  118. 1180 RETURN  
  119.